PROGRAM 


LIBRARY 


DECUS NO. 

8-182 

TITLE 

Memory Compare 

AUTHOR 

R. H. Jones 

COMPANY 

Digital Equipment Co. Ltd 
Reading, England 

DATE 

March 25, 1969 

SOURCE LANGUAGE 

PAL-D 


Al though this program has been tested by the contributor, no warranty, express or implied, is made by the contributor. 
Digital Equipment Computer Users Society or Digital Equipment Corporation as to the accuracy or functioning of the 
program or related program material, and no responsibility is assumed by these parties in connection therewith. 








MEMORY COMPARE 


DECUS Program Library Write-up DECUS No. 8-182 

ABSTRACT 

Memory Compare resides in page 36 8 of either field. It compares 
contents of similar addresses in pages j3-35s of both fields and 
outputs any differences detected. 

OPERATING INSTRUCTIONS 

Starting Address - 7400 

Options 

SR0 = 1 TTY OUTPUT 

SRJ3 = 0 PUNCH OUTPUT 

Output 

1. Four locations per line are output. 

2. The output per location is: 

Address Field 0 Content Field 1 Content 

3. The output is divided into pages beginning with the page 
address. 

4. The program ends with 7777 to indicate end of comparison. 

An example is attached. 

The following routine may be used to clear memory before any programs 
are loaded. 


7600/ 7600 
7601/ 3600 
7602/ 2200 
7603/ 5201 


Start at 7600 









4340 

4046 

0000 

4344 

4722 

0000 

4354 

3754 

0000 




4400 
444 1 

44 53 

0000 










4400 

443 ? 

4444 

6460 

471 1 

0000 

0000 

44 41 
4705 

6466 

4717 

0000 

0000 

4447 

4715 

^644 
461 5 

0000 

0000 

4660 
4 741 

4630 
4 736 

0000 

0000 

5200 

5200 

533 ? 

53 1 0 
4512 

0000 

0000 

5275 

5250 

0000 

5305 

5304 

0000 

5324 

4602 

0000 

5400 

5447 

554 ? 

5315 

4601 

0000 

0000 

5471 

5274 

0000 

550 ? 

5310 

0000 

5534 

5337 

0000 

5400 
5 401 
5444 
574 ? 

0003 

4663 

0147 

0000 

0000 

0000 

540 ? 

5454 

0004 

5650 

0000 

0000 

5603 

571 1 

4662 

5453 

0000 

0000 

563 ? 

5754 

5507 

4513 

0000 

0000 

4000 

4023 

00 3 3 

7777 

4024 

4357 

0000 

4100 

5703 

0000 

6142 

0454 

0000 

4 400 
4400 

0001 

0000 

4545 

7777 

0000 







4400 
4445 
4 464 

7031 

0001 

0000 

0000 

4444 

6645 

7035 

0001 

0000 

0000 

6655 

051 1 

0000 

6656 

0511 

0000 

7000 
7032 
703 4 

6640 

7250 

0000 

0000 

7033 

7037 

3740 

6654 

0000 

0000 

7034 

7040 

5454 

4361 

0000 

0000 

7035 

7041 

7656 

6060 

0000 

0000 

7200 

7232 

7234 

0002 

0100 

0000 

0000 

7233 

7237 

0402 

0424 

0000 

0000 

7234 

7240 

0100 

0100 

0000 

0000 

723 5 
7241 

0403 

0415 

0000 

0000 
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COMPARISON OF LOC. 0-7400 


PAL10 V133 


22-MAR-69 


14:34 


7443 

7444 

7445 

7446 

7447 

7450 

7451 

7452 

7453 

7454 

7455 

7456 

7457 


0000 

6201 

1240 

0373 

7000 

3242 

1242 

4325 

4304 

1372 

3247 

1240 

4325 


/field 

/ 


COMPARISON Of LOC. 0-7400 



7400 

*7400 

/ 



7400 

1377 

/ 

BEG, 

tad (-7400 

/CHECK 36 PAGES 

7401 

3237 


DCA CNT 

/counter 

7402 

3240 


DCA LOC 

/SET LOC=0 

74 03 

7040 


CM A 


7404 

3000 


DCA 0 

/MASK=7777 

7405 

7604 


LAS 


7406 

7700 


SMA CLA 

/OUTPUT TO PUNCH? 

7407 

1376 


TAD (JMP HIGH 

/YES, MODIFY INST 

7410 

3313 


DCA SH 


7411 

4304 

RESET, 

JMS CRLF 


7412 

4304 


JMS CRLF 


£2413 

1375 


TAD (-4 


™414 

3241 


DCA LCNT 

/4 LOCATIONS PER LINE 

7415 

1374 


TAD (NOP 


7416 

3247 


DCA MOD 

/SET * MOD * TO 'NOP* 

7417 

6201 

RPT, 

CDF 


7420 

1640 


TAD I LOC 

/field 0 

7421 

7041 


CIA 


7422 

6211 


CDF+10 


7423 

1640 


TAD I LOC 

/FIELD 1 

7424 

7640 


S2A CLA 

/COMPARE 

7425 

4243 


JMS BAD 

/DIFFERENT, SO OUTPUT 

7426 

2240 


IS2 LOC 

/ADDRESS 

7427 

2237 


IS2 CNT 

/DONE? 

7430 

5217 


JMP RPT 

/NO 

7431 

4304 


JMS CRLF 


7432 

7240 


CLA CMA 


7433 

4325 


JMS PRINT 

/TYPE 7777 TO END 

7434 

4304 


JMS CRLF 


7435 

7402 


HLT 

/finished 

^436 

5200 

/ 

JMP BEG 

/REPEAT 

7437 

0000 

CNT, 

0 

/LOCATION COUNTER 

7440 

0000 

LOC, 

0 

/CURRENT ADDRESS 

7441 

0000 

LCNT, 

0 

/LINE COUNTER 

7442 

0000 

CF, 

0 

/COMPARISON PAGE ADDR, 


/ 

BAD, 


MOD, 


/ 

same. 


0 

CDF 

TAD 

AND 

NOP 

DCA 

TAD 

JMS 

JMS 

TAD 

DCA 


LOC 

(7600 

CF 

CF 

PRINT 

CRLF 

(JMP CHECK 
MOD 


TAD LOC 
JMS print 


/OUTPUT DIFFERENCES 

/fetch ADDR, 

/PAGE BITS ONLY 
/OR * JMP CHECK* 
/STORE AS COMPARISON 


/DONT RESET CF UNTIL NEXT PAGE 
/ADDRESS 


PAGE 1 
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COMPARISON OF LOC. 0-7400 PAL10 Vi33 22-MAR-69 14134 


7460 

1640 


TAD I LOC 

/FIELD 0 CONTENT 

7461 

4325 


JMS PRINT 


7462 

6211 


CDF+10 


7463 

1640 


TAD I LOC 

/FIELD 1 CONTENT 

7464 

4325 


JMS PRINT 


7465 

1371 


TAD (240 

/EXTRA SPACES BETWEEN LOCATIONS 

7466 

4312 


JMS TYPE 


7467 

1371 


TAD (240 


7470 

4312 


JMS TYPE 


7471 

2241 


ISZ LCNT 

/LINE DONE? 

7472 

5643 


JMP I BAD 

/NO, RETURN 

7473 

1375 


TAD (-4 

/YES 

7474 

3241 


DCA LCNT 

/RESET LINE COUNT 

7475 

4304 


JMS CRLF 

/NEXT LINE 

7476 

5643 


JMP I BAD 

/AND RETURN 

7477 

7041 

CHECK, 

CIA 

/CHECK CURRENT PAGE ADDR. 

7500 

1242 


TAD CF 

/WITH STORED PAGE ADDR, 

7501 

7650 


SNA CLA 

/SAME? 

7502 

5256 


jmp same 

/yes, output in same block 

7503 

5211 

/ 

JMP RESET 

/NO, NEW BLOCK 

7504 

0000 

CRLF, 

0 

/NEW-LINE 

7505 

1370 


tad (215 


7506 

4312 


JMS TYPE 


7507 

1367 


TAD (212 


7510 

4312 


JMS TYPE 


7511 

5704 

/ 

JMP I CRLF 


7512 

0000 

f 

TYPE, 

0 

/type character subroutine 

7513 

0000 

SW, 

0 

/'AND 0'(»NOP> OR 'JMP HIGH' 

7514 

6046 


TLS 


7515 

6041 


TSF 


7516 

5315 


JMP .-1 


7517 

5323 

/ 

JMP TYPA 


7520 

6026 

f 

HIGH, 

PLS 


7521 

6021 


PSF 


7522 

5321 


JMP .-1 


7523 

7200 

typa, 

CLA 


7524 

5712 

. / 

JMP I TYPE 


7525 

0000 

PRINT, 

0 

/PRINT NUMBER SUBROUTINE 

7526 

3352 


DC A PTEM 

/TEMP. STORE 

7527 

1375 


TAD (-4 


7530 

3351 


DC A DCN 

/INITIALIZE DIGIT COUNTER 

7531 

1352 


TAD PTEM 


7532 

7004 


RAL 

/ONE ASTATE FOR LINK 

7533 

7004 

PNU2» 

RAL 


7534 

7006 


RTL 

/PUT DIGIT INTO % BITS 9-11 

7535 

3352 


DC A PTEM 

/SAME FOR NEXT TIME 

7536 

13 52 


TAD PTEM 


7537 

0366 


AND (7 /DIGIT 

BITS 

7540 

1365 


TAD (260 

/TO ASCII 

7541 

4312 


JMS TYPE 


7542 

1352 


tad ptem 

/Reload 


PAGE 
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COMPARISON of IOC. 

7543 2351 

7544 5333 

7545 7200 

7546 1371 

7547 4312 

7550 5725 


0-7400 PAL10 

ISZ DCN 
JMP PNU2 
CLA 

TAD (240 
JMS TYPE 
JMP I PRINT 

0 
0 


V133 22-MAR-69 

/DONE? 

/NO 

/YES 

/SPACE 


/DIGIT COUNTER 
/TEMP. STORE 


7551 

7552 

7565 

7566 

7567 

7570 

7571 

7572 

7573 

7574 

7575 

7576 

7577 


0000 

0000 

0260 

0007 

0212 

0215 

0240 

5277 

7600 

7000 

7774 

5320 

0400 


/ 

DCN, 

PTEM, 

$ 


14^34 


page 1 
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COMPARISON OF LOC. 0-7400 


PAL10 


V133 


22-MAR-69 


bad 

7443 

BEG 

7400 

CF 

7442 

CHECK 

7477 

CNT 

7437 

CRLF 

7504 

DCN 

7551 

HIGH 

7520 

LCNT 

7441 

LOC 

7440 

MOD 

7447 

PNU2 

7533 

PRINT 

7525 

PTEM 

7552 

RESET 

7411 

RPT 

7417 

SAME 

7456 

SW 

7513 

TYPA 

7523 

type 

7512 


3 DETECTED! 0 
TME: 2 SECONDS 
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